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 siguientes posiciones que puede tomar el 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 siguientes posiciones que puede tomar el 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.
	/* Posiciones del atributoAtributos que se puede modificar 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