DT PE Transmisión y consulta de documentos electronicos BOL

//Ejemplo de uso de punto de entrada M486EBOL

User Function M486EBOL()
Local aFact  	:= PARAMIXIB[1]
//aFact[n,1] Serie
//aFact[n,2] Numero de Documento
//aFact[n,3] Cliente
//aFact[n,4] Loja
//aFact[n,5] Fecha Emision
//aFact[n,6] Filial 
Local cEspecie	:= PARAMIXIB[2]
Local aError 	:= {}
Local aTrans 	:= {}
Local aRet   	:= {}
Local nI		:= 0

	//Proceso personalizado de transmisión.
	For nI := 1 To Len(aFact)
		
		If //Transmisión correcta.
			aAdd(aTrans, {
							aFact[nI,6], 		//Filial
							aFact[nI,1], 		//Serie
 							aFact[nI,2], 		//Factura
 							aFact[nI,3], 		//Cliente
 							aFact[nI,4], 		//Loja 
 							"", 				//Valor ser guardado en F1/F2_UUID
							"", 				//Valor a ser guardado en F1/F2_FLFTEX
							"", 				//Valor a ser guardado en F1/F2_NUMAUT
       						CTOD("28/02/22"), 	//Valor a ser guardado en F1/F2_FECTIMB
							""}) 				//Valor a ser guardado en F1/F2_HORATRM

			aAdd(aError, {
       						aFact[nI,1], 		//Serie
      						aFact[nI,2], 		//Factura
      						aFact[nI,3], 		//Cliente 
       						aFact[nI,4], 		//Loja
							""})				//Mensaje de transmisión correcta
		Else //
		 	aAdd(aError, {
       						aFact[nI,1], 		//Serie
      						aFact[nI,2], 		//Factura
      						aFact[nI,3], 		//Cliente 
       						aFact[nI,4], 		//Loja
							""})				//Mensaje de error
		EndIf
	
	Next
	
	Aadd(aRet, aError)
	Aadd(aRet, aTrans)

Return aRet

//Ejemplo de uso de punto de entrada M486CBOL

User Function M486CBOL()
Local aDocs 	:= PARAMIXIB[1]
//aDocs[n,1] F1/F2_FILIAL
//aDocs[n,2] F1/F2_SERIE
//aDocs[n,3] F1/F2_DOC
//aDocs[n,4] F1_FORNECE/F2_CLIENTE
//aDocs[n,5] F1/F2_LOJA
//aDocs[n,6] F1/F2_UUID
//aDocs[n,7] F1/F2_FLFTEX
//aDocs[n,8] F1/F2_UUIDC
//aDocs[n,9] F1/F2_NUMAUT
//aDocs[n,10] F1/F2_CODMOTC
//aDocs[n,11] F1_TIPNOTA/F2_TPDOC 
Local cEspecie	:= PARAMIXIB[2]
Local aItems	:= {}
Local aRetObs 	:= {}
Local aTrans 	:= {}
Local aRet   	:= {}

	//Proceso personalizado de consulta.
	For nI := 1 To Len(aDocs)
		
		If //Transmisión correcta.
			aAdd(aTrans, {
       						aDocs[nI,1], 		//Filial
							aDocs[nI,2], 		//Serie
 							aDocs[nI,3], 		//Factura
 							aDocs[nI,4], 		//Cliente
 							aDocs[nI,5], 		//Loja 
 							"", 				//Valor ser guardado en F1/F2_UUID
							"", 				//Valor a ser guardado en F1/F2_FLFTEX
							"", 				//Valor a ser guardado en F1/F2_NUMAUT
       						CTOD("28/02/22"), 	//Valor a ser guardado en F1/F2_FECTIMB
							""}) 				//Valor a ser guardado en F1/F2_HORATRM
		EndIf

		aAdd(aItems, {
					val("6"),; 									//Valor a ser guardado en F1/F2_NUMAUT en formato númerico
					Alltrim(aDocs[nX,2]) + "-" + aDocs[nX,3],;	//Documento + serie.
					"",;
					dDataBase,;									//Fecha de consulta.
					"Información",; 							//Resultado de la consulta	Ejemplo: "Aceptado"/"Rechazado"
					"",;
					"", ;
					aDocs[nX,3], ; 								//Documento
					aDocs[nX,2], ; 								//Serie
					aDocs[nX,4], ; 								//Cliente
					aDocs[nX,5], ; 								//Loja
					AllTrim(aDocs[nX,9])})  					//Valor a ser guardado en F1/F2_NUMAUT

		aAdd(aRetObs, {
       					aDocs[nI,2], 		//Serie
      					aDocs[nI,3], 		//Factura
      					aDocs[nI,4], 		//Cliente 
       					aDocs[nI,5], 		//Loja
						""})				//Observación
	
	Next

	
 	Aadd(aRet, aItems)
	Aadd(aRet, aRetObs)
	Aadd(aRet, aTrans)

Return aRet