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).
unmigrated-wiki-markup- Compilar la siguiente función de usuario con los datos agregados anteriormente.
User Function
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}) |
---|
If lMsErroAuto
If lMsErroAuto MostraErro() |
---|
else
Endif
Return
- Una vez compilada la función de usuario anterior ir al configurador y agregar al Menú.
|