#include "protheus.ch"
#include "rwmake.ch"

/*/{Protheus.doc} INICA1Cod
    Função inicializador padrão do campo a1_cod
@author Caio.Lima
@since 22/07/2022
/*/
User Function INICA1Cod()
    Local _cSql as character
    Local _cCod as character
    _cSql := ""

    _cSql += " SELECT MAX(A1_COD) MAXCOD FROM "+RetSQLName('SA1')+" SA1 "+CRLF
    _cSql += " WHERE SA1.D_E_L_E_T_<>'*' "+CRLF
    //_cSql += " AND LEN(TRIM(A1_COD)) = 6 "+CRLF
    _cSql += " AND LEFT(A1_COD,1) = 'Z' "+CRLF

    _cCod := MPSysExecScalar( _cSql, "MAXCOD")
    If Empty(_cCod)
        _cCod := "000001"
    Else
        _cCod := Soma1(_cCod)
    EndIf
    While !MayIUseCod(_cCod+"SA1")
        _cCod := Soma1(_cCod)
    End
Return(_cCod)