[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) _aTotal[009] := SuperGetMV("MV_CFDICPG", .F., "") (PRE) _aTotal[010] := FindFunction("zh_FechaHoraUTC") .And. !Empty(_aTotal[009]) (PRE) _aTotal[011] := FindFunction("LxFunaCaPo") (PRE) _aTotal[094] := "" (PRE) _aTotal[095] := "" (PRE) _aTotal[033] := "" (PRE) _aTotal[034] := "" (PRE) _aTotal[035] := "" (PRE) _aTotal[036] := 0 (PRE) _aTotal[037] := 0 (PRE) _aTotal[038] := 0 (PRE) _aTotal[039] := SuperGetMV("MV_CFDIEXP",.F.,.F.) (PRE) _aTotal[040] := date() - 7 (PRE) _aTotal[075] := Alltrim(SM0->M0_NOMECOM) (PRE) _aTotal[076] := ((_aTotal[039] .And. !Empty(SF2->F2_TIPOPE)) .Or. SF2->(ColumnPos("F2_TPCOMPL")) > 0 .And. AllTrim(SF2->F2_TPCOMPL)=="S") .And. Alltrim(SF2->F2_TIPODOC) == "21" (PRE) IIf(_aTotal[010],_aTotal[096] := zh_FechaHoraUTC(Alltrim(_aTotal[009]),Alltrim(SM0->M0_CEPENT),IIF(SF2->F2_EMISSAO <_aTotal[040], DATE(), SF2->F2_EMISSAO ),SF2->F2_HORA),"") (PRE) IIf(!_aTotal[010],_aTotal[096] := DtoS(IIF(SF2->F2_EMISSAO <_aTotal[040], DATE(), SF2->F2_EMISSAO)),"") (PRE) IIf(!_aTotal[010],_aTotal[096] := Left(_aTotal[096],4) + "-" + Substr(_aTotal[096],5,2)+ "-" + Right(_aTotal[096],2),"") (PRE) IIf(!_aTotal[010],_aTotal[096] += "T" + SF2->F2_HORA,"") (PRE) _aTotal[097] := {"SD2",""} |