Olá pessoal…
Hoje vou mostrar uma função desenvolvida que através de um Fornecedor (SA2), cria um Cliente (SA1) novo em AdvPL.
AdvPL
A função basicamente serve como uma clonagem do Fornecedor para o Cliente, para fazer com que ela funcione, basta chamar a rotina e passar o RecNo do Fornecedor.
Será procurado então o CNPJ / CPF na tabela de clientes, caso não exista um novo cliente será criado através de ExecAuto.
Para a rotina funcionar adequadamente, crie os campos A2_X_CLCOD e A2_X_CLLOJ (Código e Loja do Cliente respectivamente), e verifique a criação dos parâmetros MV_X_CLNAT, MV_X_CLVEN e MV_X_CLSAT.
Abaixo o código fonte completo:
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zCliFor
Função que cadastra cliente a partir dos dados do fornecedor
@type function
@author Atilio
@since 12/10/2016
@version 1.0
@param nRecSA2, numérico, RecNO do Fornecedor
@return lRet, Retorna se deu certo ou não a inclusão do cliente
@example
u_zCliFor(888)
@obs Os campos A2_X_CLCOD e A2_X_CLLOJ devem estar criados na base
Verificar os parâmetros MV_X_CLNAT, MV_X_CLVEN e MV_X_CLSAT
/*/
User Function zCliFor(nRecSA2)
Local aArea := GetArea()
Local lRet := .T.
Local aSA1 := {}
Local cCodCli := ""
Local nAtual := 0
Local cNatAux := SuperGetMV('MV_X_CLNAT', .F., "")
Local cVenAux := SuperGetMV('MV_X_CLVEN', .F., "")
Local cSatAux := SuperGetMV('MV_X_CLSAT', .F., "")
Default nRecSA2 := 0
//Se tiver recno
If nRecSA2 != 0
//Se não for o mesmo recno, posiciona no fornecedor
DbSelectArea('SA2')
If SA2->(RecNo()) != nRecSA2
SA2->(DbGoTo(nRecSA2))
EndIf
//Somente se não tiver cliente e loja
If Empty(SA2->A2_X_CLCOD) .And. Empty(SA2->A2_X_CLLOJ)
DbSelectArea('SA1')
SA1->(DbSetOrder(3)) //A1_FILIAL + A1_CGC
SA1->(DbGoTop())
//Se o CNPJ já existir, usa o cliente como referência
If SA1->(DbSeek(FWxFilial('SA1') + SA2->A2_CGC))
//Grava o cliente no fornecedor
RecLock('SA2', .F.)
A2_X_CLCOD := SA1->A1_COD
A2_X_CLLOJ := SA1->A1_LOJA
SA2->(MsUnlock())
Else
//Adiciona os campos
cCodCli := GetSXENum("SA1","A1_COD")
ConfirmSX8()
aAdd(aSA1, {"A1_FILIAL", FWxFilial("SA1"), Nil})
aAdd(aSA1, {"A1_COD", cCodCli, Nil})
aAdd(aSA1, {"A1_LOJA", "01", Nil})
aAdd(aSA1, {"A1_CGC", SA2->A2_CGC, Nil})
aAdd(aSA1, {"A1_EST", SA2->A2_EST, Nil})
aAdd(aSA1, {"A1_PESSOA", SA2->A2_TIPO, Nil})
aAdd(aSA1, {"A1_NOME", SA2->A2_NOME, Nil})
aAdd(aSA1, {"A1_NREDUZ", SA2->A2_NREDUZ, Nil})
aAdd(aSA1, {"A1_END", SA2->A2_END, Nil})
aAdd(aSA1, {"A1_INSCR", SA2->A2_INSCR, Nil})
aAdd(aSA1, {"A1_COD_MUN", SA2->A2_COD_MUN, Nil})
aAdd(aSA1, {"A1_MUN", SA2->A2_MUN, Nil})
aAdd(aSA1, {"A1_BAIRRO", SA2->A2_BAIRRO, Nil})
aAdd(aSA1, {"A1_CEP", SA2->A2_CEP, Nil})
aAdd(aSA1, {"A1_DDD", SA2->A2_DDD, Nil})
aAdd(aSA1, {"A1_TEL", SA2->A2_TEL, Nil})
aAdd(aSA1, {"A1_FAX", SA2->A2_FAX, Nil})
aAdd(aSA1, {"A1_EMAIL", SA2->A2_EMAIL, Nil})
aAdd(aSA1, {"A1_CONTATO", SA2->A2_CONTATO, Nil})
aAdd(aSA1, {"A1_NATUREZ", cNatAux, Nil})
aAdd(aSA1, {"A1_VEND", cVenAux, Nil})
aAdd(aSA1, {"A1_SATIV1", cSatAux, Nil})
Begin Transaction
lMsErroAuto := .F.
MSExecAuto({|x, y| Mata030(x, y)}, aSA1, 3)
//Se houve erro, disarma a transação
If lMsErroAuto
lRet := .F.
MostraErro()
DisarmTransaction()
Else
//Grava o cliente no fornecedor
RecLock('SA2', .F.)
A2_X_CLCOD := cCodCli
A2_X_CLLOJ := "01"
SA2->(MsUnlock())
EndIf
End Transaction
EndIf
EndIf
Else
lRet := .F.
EndIf
RestArea(aArea)
Return lRet
Bom pessoal, por hoje é só.
Abraços e até a próxima.
