Trecho do ponto de entrada que faz a chamada para o Ponto de Entrada que o cliente renomeia para XA103CND2
O fonte A103CND2.prx (pasta 0-Pontos Entrada Protheus) apenas chama a função U_MLA103CD() (fonte MLA103CD.prw, pasta Pontos Entrada do projeto Central XML), que contém a regra:
If lUsaCXml
// Se não existir a variável
If Type("lDupSE4") == "U"
lDupSE4 := .T.
Endif
If Type("lAutoExec") == "U"
Private lAutoExec := IsBlind()
Endif
// Permite que a validação de duplicatas seja desativada e que os vencimentos oriundos do XML não sejam considerados
If !GetNewPar("XM_CPVLDNF",.T.)
aDupSE2 := Nil
Endif
Endif
If (ExistBlock("XA103CND2"))
aBkDupSE2 := Iif(Type("aDupSE2") == "A" .And. Len(aDupSE2) > 0 ,aDupSE2,aInParamIxb)
aRetDupSe2 := ExecBlock("XA103CND2",.F.,.F.,aBkDupSE2 )
Endif
If Type("aRetDupSe2") == "A"
If Len(aRetDupSe2) > 0
Return aRetDupSe2
Endif
ElseIf !FwIsInCallStack("U_XMLDCONDOR") .Or. Type("lDupSE4") == "U" .Or. (Type("lDupSE4") == "L" .And. lDupSE4)
Return
ElseIf Type("aDupSE2") == "A"
If Len(aDupSE2) > 0
Return aDupSE2
Endif
ElseIf Type("aBkDupSE2") == "A"
If Len(aBkDupSE2) > 0
Return aBkDupSE2
Endif
Endif
Return
lDupSE4 = .F.), o ponto de entrada devolve os vencimentos e valores lidos do XML (aDupSE2) para a aba Duplicatas.lDupSE4 = .T., não há retorno e o Protheus mantém a condição de pagamento padrão.XM_CPVLDNF = .F. desativa a validação de duplicatas e descarta os vencimentos do XML.XM_USACXML indica se a Central XML está em uso (padrão .T.).ZEXPEXML, se compilado, recebe {"A103CND2", PARAMIXB}; retornando .F., a rotina sai sem executar a regra da Central XML nem o XA103CND2.Documentação oficial no TDN
| Linha de Produto: | Microsiga Protheus |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Compras (SIGACOM) |
| Rotina: | Documento de Entrada - MATA103 |
| Ponto de Entrada: | A103CND2 |
| País(es): | Brasil |
| Banco(s) de Dados: | Todos |
| Abrangência: | Protheus 11, Protheus 12 |
| Sistema(s) operacional(is): | Windows/Linux |
| Descrição: | Este ponto de entrada é utilizado para alterar a condição de pagamento (vencimentos e valores das duplicatas) na nota fiscal de entrada. |
|---|---|
| Localização: | Function NfeRFldFin - Rotina de atualização dos dados do folder financeiro (aba Duplicatas) do Documento de Entrada. |
| Eventos: | Executado sempre que a aba Duplicatas é recalculada (condição de pagamento, valor total ou impostos alterados). |
| Programa Fonte: | MATA103X.PRX |
| Função: | NfeRFldFin |
| Sintaxe: | A103CND2 ( [ aParamixb ] ) --> aRet |
| Parâmetros: | PARAMIXB - Array - Array com a condição de pagamento atual (vencimento e valor de cada parcela). |
| Retorno: | aRet - Array - Array com a nova condição de pagamento, na mesma estrutura recebida. |
Exemplo:
User Function A103CND2()
Local aDuplic := PARAMIXB
//..manipulações do usuário do array de duplicatas
Return aDuplic