Salve salve....
Ponto de entrada SF1100I- ( Compras - Documento de Entrada)
MATA103-SF1100I - Finalização do Documento de Entrada
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} SF1100I
Finalização do Documento de Entrada
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function SF1100I()
Local aArea := GetArea() as array
RecLock("SF1",.F.)
SF1->F1_XX :='Eurai'
SF1->( MsUnLock() )
If SD1->( dbSeek( xFilial("SD1") + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA ) )
Endif
cQuery := " SELECT * FROM "+RetSQLName("SE2")+" SE2 "
cQuery += " WHERE E2_FILIAL ='"+xFilial("SE2")+"' "
cQuery += " AND E2_FORNECE = '"+SD1->D1_FORNECE+"' "
cQuery += " AND E2_LOJA = '"+SD1->D1_LOJA+"' "
cQuery += " AND E2_PEDIDO = '"+SD1->D1_PEDIDO+"' "
cQuery += " AND E2_TIPO = 'PA' "
cQuery += " AND E2_SALDO > 0 "
cQuery += " AND SE2.D_E_L_E_T_ = '' "
RestArea(aArea)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima