Histórico da Página

El Punto de Entrada PEEMIREC recibe como parámetro la opción de tipo Caracter, mediante el cual se tienen disponibles las siguientes opciones:

Si opción es "E", se permite la modificación del Nodo de cfdi:Emisor, tomando en cuenta las los siguientes posiciones atributos que se puede tomar el agregar al arreglo:

• [1] - Valor para el atributo Rfc
• [2] - Valor para el atributo Nombre
• [3] - Valor para el atributo RegimenFiscal

Si opción es "R", se permite la modificación del Nodo de cfdi:Receptor, tomando en cuenta las los siguientes posiciones atributos que puede tomar el agregar al arreglo:

• [1] - Valor para el atributo Rfc
• [2] - Valor para el atributo Nombre
• [3] - Valor para el atributo RegimenFiscalReceptor
• [4] - Valor para el atributo DomicilioFiscalReceptor
• [5] - Valor para el atributo UsoCFDI

User Function PEEMIREC()
	Local cArea   := GetArea()
	Local cOpcion := PARAMIXB[1] // E - Emisor o R - Receptor
	Local aEmiRec := {} // Arreglo dinámico que contiene la información del Emisor o Receptor.
	/* Atributos que se puede modificaragregar para ser modificados en el XML para Emisor y Receptor
	aEmiRec[1] :=- RFC
	aEmiRec[2] :=- Nombre
	aEmiRec[3] :=- RegimenFiscal
	aEmiRec[4] :=- DomicilioFiscal Solo Receptor
	aEmiRec[5] :=- UsoCFDI Solo Receptor  */
	If cOpcion =='E'      			
		aAdd(aEmiRec, {"RFC", ""} )
		aAdd(aEmiRec, {"Nombre", CFDCarEsp(Alltrim(SM0->M0_NOMECOM))} )
		aAdd(aEmiRec, {"RegimenFiscal", "601"} )  
	EndIf
	If cOpcion =='R' .And. Alltrim(cEspecie) $ "NF"      
		aAdd(aEmiRec, {"RFC", CFDCarEsp(AllTrim(SA1->A1_CGC))} )  
	EndIf

Return aEmiRec