Informar tasa para cada moneda (SIGAFIN>>Actualizaciones |Archivos | Monedas) Añadir: - Proveedor(SIGACOM>>Actualizaciones |Archivos | Proveedores).
- TES(SIGACOM>>Actualizaciones |Archivos | Tipo de entrada y salida).
- Producto(SIGACOM>>Actualizaciones |Archivos | Productos).
- Compilar la siguiente función de usuario con los datos agregados anteriormente.
| Bloco de código |
|---|
#INCLUDE "RWMAKE.CH" |
User Function //Array com dados do cabecalho |
//Array com dados do item |
aLinha cDoc := ""Private aRecsSF1 := {} //Array para vinculo de Notas Private lMsErroAuto := .f. //Controle de execucao da Rotina cDoc := FWInputBox("Núemro documento", "") //"000021111901" //Cabecalho cDoc := ""
Private aRecsSF1 := {} //Array para vinculo de Notas
Private lMsErroAuto := .f. //Controle de execucao da Rotina
cDoc := FWInputBox("Núemro documento", "") //"000021111901"
//Cabecalho
aadd(_aCabec,{"F1_FILIAL","01"}) |
aadd(_aCabec,{"F1_DOC",cDoc}) |
aadd(_aCabec,{"F1_SERIE","FAT"}) |
aadd(_aCabec,{"F1_FORNECE","12984 "}) |
aadd(_aCabec,{"F1_LOJA","01"}) |
aadd(_aCabec,{"F1_TIPO","N"}) |
aadd(_aCabec,{"F1_FORMUL","N"}) |
aadd(_aCabec,{"F1_EMISSAO",dDataBase}) |
aadd(_aCabec,{"F1_TXMOEDA",1}) |
aadd(_aCabec,{"F1_TIPODOC","60"}) |
aadd(_aItens,{"D1_COD","000000000000001",nil}) |
aadd(_aItens,{"D1_QUANT",1,nil}) |
aadd(_aItens,{"D1_VUNIT",1000,nil}) |
aadd(_aItens,{"D1_TOTAL",1000,nil}) |
aadd(_aItens,{"D1_TES","001",nil}) |
aadd(_AItens,{"D1_TIPO","N",nil}) |
MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3) |
If lMsErroAuto
If lMsErroAuto
MostraErro() |
else
else
msgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N") |
Endif - Una vez compilada la función de usuario anterior ir al configurador y agregar al Menú.
|
