Función: MATA145 - Registro de aviso de recepción
Alcances: | Protheus 10 | Versiones: | Protheus 10 | Compatible países: | Todos | Sistemas operativos: | Todos | Compatible a las bases de datos: | Todos | Nivel de acceso: | Nivel 1 (Acceso Clientes) | Idiomas: | Portugués (Brasil) |
Descripción: Esta rutina realiza el registro de los avisos de recepción de carga.
Programa fuente: MATA145.PRX Sintaxis: MATA145 - Registro de aviso de recepción ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL Devolución: NIL(nulo) Observaciones El aviso de recepción de carga es un documento que muestra la carga de un vehículo.
Puede ser referente a una única factura o a varias.
Después de la entrega, se deben homologar las facturas registradas.
Ejemplos 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
Parámetros:
| Nombre |
|
| Tipo |
|
| Descripción |
|
| Estándar |
|
| Obligatorio |
|
| Referencia |
|
| PARAMIXB1 |
|
| Array of Record |
|
| Array que contiene los valores del aviso de recepción de carga |
|
|
|
|
|
|
|
|
|
|
| PARAMIXB2 |
|
| Array of Record |
|
| Array que contiene los valores de encabezado del documento de recepción |
|
|
|
|
|
|
|
|
|
|
| PARAMIXB3 |
|
| Array of Record |
|
| Array que contiene los valores de los ítems del documento de recepción |
|
|
|
|
|
|
|
|
|
|
| PARAMIXB4 |
|
| Numérico |
|
| Opción seleccionada:
3-Inclusión
4-Modificación
5-Borrado |
|
|
|
|
|
|
|
|
|
|
|