Histórico da Página
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#include 'protheus.ch'
#INCLUDE "FWMVCDEF.CH"
#include "FILEIO.CH"
User function LOCXCONCEP()
Local cArea := GetArea()
Local aDetFac := {"","",0,"","","","","",""} // Arreglo que contiene la información del producto.
/*
aDetFac[1] := ClaveProdSer
aDetFac[2] := No. Identificación
aDetFac[3] := Cantidad
aDetFac[4] := ClaveUnidad
aDetFac[5] := Unidad
aDetFac[6] := Descripcion
aDetFac[7] := ValorUnitario
aDetFac[8] := Importe
aDetFac[9] := Descuento
*/
If Alltrim(cEspecie) == "NF"
aDetFac[7] := "0.01"
aDetFac[8] := "0.01"
aDetFac[9] := "0.00"
EndIf
RestArea(cArea)
Return aDetFac |
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#include 'protheus.ch'
#INCLUDE "FWMVCDEF.CH"
#include "FILEIO.CH"
User Function PEDETIMP()
Local cOpc := PARAMIXB[1] //Opión donde IA - Información Aduanera, CP - Cuenta Predial
Local lCadO := PARAMIXB[2] //Indica si es Cadena Origian .T. = Si y .F. = No
Local cProd := PARAMIXB[3] //Código del Producto
Local cItem := PARAMIXB[4] //Número de ítem
Local aImpDet := {}
Local cRetImp := ""
Local cBaseI := "0.01"
Local cImpto := "002"
Local cTipoF := "Tasa"
Local cTsaC := "0.000000"
Local cImpI := "0.00"
Local cCRLF := (chr(13)+chr(10))
Local cSepa := "|"
If Alltrim(cEspecie) $ "NF|NCC"
If lCadO
If cOpc == "IT"
cRetImp := cBaseI + cSepa + cImpto + cSepa + cTipoF + cSepa + cTsaC + cSepa + cImpI + cSepa
EndIf
Else
If cOpc == "IT"
cRetImp := Space(20) + '<cfdi:Traslado Base="' + cBaseI + '" Impuesto="' + cImpto + '" TipoFactor="' + cTipoF + '" TasaOCuota="' + cTsaC + '" Importe="' + cImpI + '"/>' + cCRLF
EndIf
EndIf
aAdd(aImpDet, cRetImp)
EndIf
Return aImpDet |
Card documentos Informacao La presente solución aplica para versión 12.1.2210 o superior, y es necesario tener activa la funcionalidad de CFDI versión 4.0 o superior. Titulo ¡IMPORTANTE!
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas