[XXX POSICIONAMENTOS]
(PRE) IfIIf(AllTrim(SF2->F2_ESPECIE)<>"NDIRCD",SA1->(MSSeek(xFilial("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA)), .T.SA2->(MSSeek(xFilial("SA2")+SF2->F2_CLIENTE+SF2->F2_LOJA)))
(PRE) (AI0->(MSSeek(xFilial("AI0")+SF2->F2_CLIENTE+SF2->F2_LOJA)) , .T.) [XXX INICIALIZACION]
(PRE) SD2->(DbSetOrder(1))
(PRE) SB1->(DbSetOrder(1))
(PRE) SYA->(DbSetOrder(1))
(PRE) SC6->(DbSetOrder(1))
(PRE) SE4->(DbSetOrder(1))
(PRE) CTO->(DbSetOrder(1))
(PRE) SAH->(DbSetOrder(1))
(PRE) SA1->(DbSetOrder(1))
(PRE) DA3->(DbSetOrder(1))
(PRE) SA4->(DbSetOrder(1)) (PRE) _aTotal[002] := chr(13) + chr(10)
(PRE) _aTotal[003] := "99999999999999.99"
(PRE) _aTotal[004] := {"SD2",""}
(PRE) _aTotal[006] := M486NOMARC(SF2->F2_FILIAL, SF2->F2_DOC, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"1")
(PRE) _aTotal[009] := TamSX3("F2_DOC")[1]
(PRE) _aTotal[012] := Iif(!Empty(SF2->F2_DOCMANNFAGREG) .Or. !Empty(SF2->F2_SERMAN),fgetDocEqu(SF2->F2_FILIAL, SF2->F2_DOCMANNFAGREG, SF2->F2_SERMAN,"NF"),"")
(PRE) lDocSust := !Empty(_aTotal[012])
(PREREG) FsQuery(_aTotal[004],1,"D2_DOC='" + SF2->F2_DOC + "' AND D2_SERIE='" + SF2->F2_SERIE + "' AND D2_CLIENTE='" + SF2->F2_CLIENTE + "' AND D2_LOJA='" + SF2->F2_LOJA + "'","SD2->D2_DOC=SF2->F2_DOC .AND. SD2->D2_SERIE=SF2->F2_SERIE .AND. SD2->D2_CLIENTE=SF2->F2_CLIENTE .AND. SD2->D2_LOJA=SF2->F2_LOJA","D2_ITEM") .And. .T. [XXX EMISOR]
(PREREG) (_aTotal[001] := '<?xml version="1.0" encoding="UTF-8" ?>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<guiaRemision id="comprobante" version="1.0.0">' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <infoTributaria>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <ambiente>' + _aTotal[007] + '</ambiente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <tipoEmision>' + "1" + '</tipoEmision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <razonSocial>' + Alltrim(SM0->M0_NOMECOM) + '</razonSocial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(_aTotal[018],' <nombreComercial>' + Alltrim(SM0->M0_NOME) + '</nombreComercial>'+ _aTotal[002],"") ,.T.)
(PREREG) (_aTotal[001] += ' <ruc>' + Alltrim(SM0->M0_CGC) + '</ruc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <codDoc>06</codDoc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <estab>' + Alltrim(SF2->F2_ESTABL) + '</estab>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <ptoEmi>' + Alltrim(SF2->F2_PTOEMIS) + '</ptoEmi>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <secuencial>' + Alltrim(Substr(SF2->F2_DOC,(_aTotal[009]-8),9)) + '</secuencial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <dirMatriz>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</dirMatriz>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </infoTributaria>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001]) [XXX RECEPTOR]
(PREREG) (SA4->(MSSeek(xFilial("SA4")+SF2->F2_TRANSP)) , .T.)
(PREREG) (DA3->(MSSeek(xFilial("DA3")+SF2->F2_VEICULO)) , .T.)
(PREREG) (_aTotal[001] := ' <infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <dirEstablecimiento>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SA1SM0->A1>M0_ENDCOMPENT) + '</dirEstablecimiento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <dirPartida>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SA1SM0->A1>M0_ENDCOMPENT) + '</dirPartida>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <razonSocialTransportista>' + Alltrim(SA4->A4_NOME) + '</razonSocialTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <tipoIdentificacionTransportista>' + Alltrim(SA4->A4_TIPOTRA) + '</tipoIdentificacionTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <rucTransportista>' + Alltrim(SA4->A4_CGC) + '</rucTransportista>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <obligadoContabilidad>SI</obligadoContabilidad >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <fechaIniTransporte>' + cValtoChar(SF2->F2_FECDSE) + '</fechaIniTransporte >' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <fechaFinTransporte>' + cValtoChar(SF2->F2_FECANTF) + '</fechaFinTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <placa>' + Alltrim(DA3->DA3_PLACA) + '</placa>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </infoGuiaRemision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <destinatarios>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001]) [XXX DESTINATARIO]
(PRE) lDocSust := !Empty(_aTotal[012])
(PREREG) (_aTotal[001] := ' <destinatario>' + _aTotal[PRE) lDevol := IIF(AllTrim(SF2->F2_ESPECIE)== "RCD",.T.,.F.)
(PREREG) (_aTotal[001] := ' <destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <identificacionDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_CGC),Alltrim(SA1->A1_CGC)) + '</identificacionDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <razonSocialDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_NOME),Alltrim(SA1->A1_NOME)) + '</razonSocialDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <dirDestinatario>' + IIF(lDevol,Alltrim(SA2->A2_END),Alltrim(SA1->A1_ENDENT)) + '</dirDestinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <motivoTraslado>' + Alltrim(SF2->F2_OBS) + '</motivoTraslado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += Iif(IIF(lDevol,!Empty(SA2->A2_CODZON),!Empty(SA1->A1_CODLOC)),' <codEstabDestino>'+IIF(lDevol,SA2->A2_CODZON,SA1->A1_CODLOC) + '</codEstabDestino>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(!Empty(Alltrim(SF2->F2_RUTDOC)),' <ruta>' + Alltrim(SF2->F2_RUTDOC) + '</ruta>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,' <codDocSustento>01</codDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,' <numDocSustento>' + Alltrim(_aTotal[012][3])+"-"+ Alltrim(_aTotal[012][2])+"-" + IIf(Len(Alltrim(_aTotal[012][1])) > 9, Alltrim(Substr(_aTotal[012][1],(_aTotal[009]-8),9)), Alltrim(_aTotal[012][1])) + '</numDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust .And. !Empty(_aTotal[012][4]) ,' <numAutDocSustento>' + _aTotal[012][4] + '</numAutDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += Iif(lDocSust,' <fechaEmisionDocSustento>' + _aTotal[012][5] + '</fechaEmisionDocSustento>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' <detalles>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001]) [SD2 DETALLE]
(PREREG) (SB1->(MSSeek(xFilial("SB1") + SD2->D2_COD)),.T.)
(PREREG) (_aTotal[001] := ' <detalle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <codigoInterno>' + Alltrim(SD2->D2_COD) + '</codigoInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <codigoAdicional>' + Alltrim(SD2->D2_COD) + '</codigoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <descripcion>' + Alltrim(SB1->B1_DESC) + '</descripcion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <cantidad>' + Alltrim(TRANSFORM(SD2->D2_QUANT,_aTotal[003])) + '</cantidad>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </detalle>'+ _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001]) [XXX INFOADICIONAL]
(PRE) lDevol := IIF(AllTrim(SF2->F2_ESPECIE)== "RCD",.T.,.F.)
(PREREG) (_aTotal[001] := ' </detalles>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </destinatario>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </destinatarios>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <campoAdicional nombre="Email">' + IIF(lDevol,Alltrim(SA2->A2_EMAIL),Alltrim(SA1->A1_EMAIL)) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <campoAdicional nombre="TELEFONO">' + IIF(lDevol,Alltrim(SA2->A2_TEL),Alltrim(SA1->A1_TEL)) + '</campoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </infoAdicional>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </guiaRemision>' + _aTotal[002],.T.)
(PREREG) ENCODEUTF8(_aTotal[001])
(POS) FsQuery(_aTotal[004],2) [XXX FACTURA]
(PRE) _aTotal[094] := _aTotal[006] + ".XML" (ARQ) _aTotal[094]
|
