MATA145 - Registro de aviso de recepción

	If !lMsErroAuto	ConOut("Incluido com sucesso! "+cProd)	Else      MostraErro()	ConOut("Erro na inclusao!")EndIfConOut("Fim  : "+Time())Return Nil

#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function MYMTA145()                       Local aDB1   := {}  Local aDB2   := {} Local aDB3   := {} Local aTamProd:= {}Local cRavRc  :="000020"     //..numero do AvisoLocal dEmissa := ""          //.. emissaoLocal cTipo   := "1"         //.. Tipo de cliente o proveedorlOCAL cCliFor := "01    "    //.. Código del cliente o proveedor Lugar cLoja   := "01  "      //.. numero de la tienda Lugar cTipoNF := "N"         //.. tipo de la factura //N-> Pedidos Normales.Lugar cProd   := ""          //.. código del producto                           Lugar cDoc    := "000000020" //.. numero do documentoLocal nQuant  := 10          //.. quantidadeLocal nVunit  := 1           //..valor unitarioLugar nTotal  := 10          //..totalPRIVATE lMsErroAuto := .F.                               //------------------------//| Apertura del entorno |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "DB1","DB2","DB3","SB1"      aTamProd:= TamSX3("B1_COD")cProd   := "PROD1"+Space( aTamProd[1]-Len("PROD1") )dEmissa := dDataBase  ConOut(Repl("-",80))ConOut(PadC("Registro de aviso de recepción",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Ejemplo de inclusión                                          |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   aDB1 := {}aadd(aDB1,{"DB1_NRAVRC" ,cRavRc ,})aadd(aDB1,{"DB1_EMISSA" ,dEmissa ,})aadd(aDB1,{"DB1_TIPO"   ,cTipo   ,})aadd(aDB1,{"DB1_CLIFOR" ,cCliFor ,})aadd(aDB1,{"DB1_LOJA"   ,cLoja   ,})aadd(aDB1,{"DB1_TIPONF" ,cTipoNF ,})  aadd(aDB1,{"DB1_NRDOC"  ,"99999" ,})  aadd(aDB1,{"DB1_ENTREG" ,dEmissa ,})aadd(aDB1,{"DB1_HOMOLO" ,"1"     ,})        aDB2 := {}aAdd(aDB2,{})aadd(aDB2[len(aDB2)],{"DB2_DOC"   ,cDoc     ,})aadd(aDB2[len(aDB2)],{"DB2_EMISSA",dEmissa  ,})aadd(aDB2[len(aDB2)],{"DB2_TIPO"  ,cTipo    ,})aadd(aDB2[len(aDB2)],{"DB2_CLIFOR",cCliFor  ,})aadd(aDB2[len(aDB2)],{"DB2_LOJA"  ,cLoja    ,})aadd(aDB2[len(aDB2)],{"DB2_NRAVRC",cRavRc   ,})                          aDB3 := {}   aAdd(aDB3,{})                                  aadd(aDB3[len(aDB3)],{"DB3_NRAVRC" ,cRavRc ,})aadd(aDB3[len(aDB3)],{"DB3_ITEM"   ,"001"  ,})      aadd(aDB3[len(aDB3)],{"DB3_CODPRO" ,cProd  ,})       aadd(aDB3[len(aDB3)],{"DB3_QUANT"  ,nQuant ,})aadd(aDB3[len(aDB3)],{"DB3_VUNIT"  ,nVunit ,})aadd(aDB3[len(aDB3)],{"DB3_TOTAL"  ,nTotal ,})aadd(aDB3[len(aDB3)],{"DB3_ITDOC"  ,"001"  ,})aadd(aDB3[len(aDB3)],{"DB3_STSERV" ,"1"    ,})     PARAMIXB1 := aClone(aDB1)  PARAMIXB2 := aClone(aDB2)PARAMIXB3 := aClone(aDB3)PARAMIXB4 := 3   MSExecAuto({|x,y,z,w| mata145(x,y,z,w)},PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4) If !lMsErroAuto   ConOut(" ¡ Incluido con éxito ! "+cProd) Else      MostraErro()  ConOut("Error en la inclusión!")EndIfConOut("Fin  : "+Time())Return Nil