Salve salve....
Ponto de entrada FA430FIG - ( Financeiro / Retorno de comunicação Bancária )
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} FA430FIG
Ponto de entrda Permitir modificar CNPJ retorno DDA ( < cCNPJ> ) --> cCNP
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function FA430FIG()
Local cCGC := ParamIxb[01]
Local cCodForn := ParamIxb[02]
Local cE2PREFIXO := ParamIxb[03]
Local cNumTit := ParamIxb[04]
Local cQuery := ''
Local cCRLF := CRLF
If Select('QryUDCGC') > 0
QryUDCGC->( dbCloseArea() )
Endif
cQuery := cCRLF + "SELECT "
cQuery += cCRLF + " SA2.R_E_C_N_O_ SA2RECNO, A2_COD,A2_LOJA,A2_CGC "
cQuery += cCRLF + "FROM "
cQuery += cCRLF + RetSqlName('SA2') + " SA2 (NOLOCK) "
cQuery += cCRLF + " WHERE "
cQuery += cCRLF + " A2_FILIAL = '" + xFilial('SA2') + "' "
cQuery += cCRLF + " AND SubString(A2_CGC,1,8) = '" + SubStr(cCGC,1,8) + "' "
cQuery += cCRLF + " AND A2_MSBLQL != '1' "
cQuery += cCRLF + " AND SA2.D_E_L_E_T_ = ' ' "
cQuery += cCRLF + " ORDER BY A2_COD,A2_LOJA "
MPSysOpenQuery(cQuery,'QryUDCGC')
If QryUDCGC->( !EOF() )
cCGC := QryUDCGC->A2_CGC
SA2->( dbGoTo( QryUDCGC->SA2RECNO ) ) //Precisa posicionar no novo registro. Senão da pau. Somente retornar o CNPJ não vai.
Endif
QryUDCGC->( dbCloseArea() )
Return( cCGC )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima