Solução/Implementação: | Incluída a posição aObsCotAux:= PARAMIXB[17] na documentação do a array aParam a fim Ajustado no ponto de entrada PE01NFESEFAZ para manipular o array 'aObsCotAux'. Através deste ponto é possível passar as informações pertinente as tags <obsCont xCampo=" "> e <xTexto>, Valor do Pagamento e Troco. Ponto de entrada em questão: PE01NFESEFAZ Exemplo 1 =ponto de entrada: #Include 'Protheus.ch' User Function PE01NFESEFAZ() Local aProd := PARAMIXB[1] Local cMensCli := PARAMIXB[2] Local cMensFis := PARAMIXB[3] Local aDest := PARAMIXB[4] Local aNota := PARAMIXB[5] Local aInfoItem := PARAMIXB[6] Local aDupl := PARAMIXB[7] Local aTransp := PARAMIXB[8] Local aEntrega := PARAMIXB[9] Local aRetirada := PARAMIXB[10] Local aVeiculo := PARAMIXB[11] Local aReboque := PARAMIXB[12] Local aNfVincRur:= PARAMIXB[13] Local aEspVol := PARAMIXB[14] Local aNfVinc := PARAMIXB[15] Local aDetPag := PARAMIXB[16] Local aObsCotAux:= PARAMIXB[17] Local aRetorno := {} Local cMsg := "" aadd(aRetorno,aProd) aadd(aRetorno,cMensCli) aadd(aRetorno,cMensFis) aadd(aRetorno,aDest) aadd(aRetorno,aNota) aadd(aRetorno,aInfoItem) aadd(aRetorno,aDupl) aadd(aRetorno,aTransp) aadd(aRetorno,aEntrega) aadd(aRetorno,aRetirada) aadd(aRetorno,aVeiculo) aadd(aRetorno,aReboque) aadd(aRetorno,aNfVincRur) aadd(aRetorno,aEspVol) aadd(aRetorno,aNfVinc) aadd(aRetorno,AdetPag) //Ajuste na aObsCotAux aAdd(aObsCotAux,{ "Precoce_MS",; //xCampo "O número do Mapa de apuração do Incentivo PROAPEPrecoce/MS."}) //xTexto aAdd(aObsCotAux,{ "Precoce_MS outros",; //xCampo "outros textos"})
aadd(aRetorno,aObsCotAux) RETURN aRetorno Return
Exemplo 2=ponto de entrada: #Include 'Protheus#include "TOTVS.ch" #include "PROTHEUS.ch'" User Function PE01NFESEFAZ() Local aProd := PARAMIXB[1] Local cMensCli := PARAMIXB[2] Local cMensFis := PARAMIXB[3] Local aDest := PARAMIXB[4] Local aNota := PARAMIXB[5] Local aInfoItem := PARAMIXB[6] Local aDupl := PARAMIXB[7] Local aTransp := PARAMIXB[8] Local aEntrega := PARAMIXB[9] Local aRetirada := PARAMIXB[10] Local aVeiculo := PARAMIXB[11] Local aReboque := PARAMIXB[12] Local aNfVincRur:= PARAMIXB[13] Local aEspVol := PARAMIXB[14] Local aNfVinc := PARAMIXB[15] Local aDetPag := PARAMIXB[16] Local aObsCotAux:= PARAMIXB[17] Local aRetorno := {} Local cMsg := "" aadd(aRetorno,aProd) aadd(aRetorno,cMensCli) aadd(aRetorno,cMensFis) aadd(aRetorno,aDest) aadd(aRetorno,aNota) aadd(aRetorno,aInfoItem) aadd(aRetorno,aDupl) aadd(aRetorno,aTransp) aadd(aRetorno,aEntrega) aadd(aRetorno,aRetirada) aadd(aRetorno,aVeiculo) aadd(aRetorno,aReboque) aadd(aRetorno,aNfVincRur) aadd(aRetorno,aEspVol) aadd(aRetorno,aNfVinc) aadd(aRetorno,AdetPag) //Ajuste na aObsCotAuxaParam := PARAMIXB //{aProd,cMensCli,cMensFis,aDest,aNota,aInfoItem,aDupl,aTransp,aEntrega,aRetirada,aVeiculo,aReboque,aNfVincRur,aEspVol,aNfVinc,AdetPag,aObsCont} Local aObsCotAux := aParam[17] //aObsCont aAdd(aObsCotAux,{ "Precoce_MS",; //xCampo "O o número do Mapa de apuração do Incentivo PROAPEPrecoce/MS."}) //xTexto aAdd(aObsCotAux,{ "Precoce_MS outros",; //xCampo "outros textostesxtos"}) aadd(aRetorno,aObsCotAux) RETURN aRetorno//xTexto aParam[17] := aObsCotAux Return aParamReturn |